home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / page3 / 00034.ls < prev    next >
Encoding:
Text File  |  1995-04-05  |  558 b   |  28 lines
  1. on mouseUp
  2.   global bfly, count
  3.   if (bfly = 0) and (count = 0) then
  4.     go("close")
  5.   end if
  6.   if (bfly = 0) and (count = 1) then
  7.     go("close")
  8.   end if
  9.   if (bfly = 0) and (count = 2) then
  10.     go("walk close")
  11.   end if
  12.   if (bfly = 0) and (count = 3) then
  13.     go("morph close")
  14.   end if
  15.   if (bfly = 1) and (count = 0) then
  16.     go("close1")
  17.   end if
  18.   if (bfly = 1) and (count = 1) then
  19.     go("close1")
  20.   end if
  21.   if (bfly = 1) and (count = 2) then
  22.     go("walk close1")
  23.   end if
  24.   if (bfly = 1) and (count = 3) then
  25.     go("morph close1")
  26.   end if
  27. end
  28.